home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_06_1985_Transactor_Publishing.d64
/
set sprites
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
109 lines
0 rem set sprites (aug 25/84) :
1 :
2 rem 6 statements, 0 functions
3 :
4 rem keyword characters: 27
5 :
6 rem keyword routine line ser #
7 rem s/colspr colsp 3530 031
8 rem s/sspr ssp 3550 032
9 rem s/cspr csp 3560 033
10 rem s/xspr xsp 3574 034
11 rem s/yspr ysp 3628 035
12 rem s/xyspr xysp 3656 036
13 :
14 rem u/chkspr (3664/037)
15 rem u/raschk (3676/038)
16 rem d/powers (3694/039)
17 :
18 rem ================================
19 :
108 .asc "colsp[210]ssp[210]csp[210]"
109 .asc "xsp[210]ysp[210]xysp[210]"
1108 .word colsp-1,ssp-1,csp-1
1109 .word xsp-1,ysp-1,xysp-1
3530 colsp jsr chs1
3532 txa
3534 pha
3536 jsr $b7f1
3538 pla
3540 tay
3542 txa
3544 sta $d027,y
3546 rts
3548 ;
3550 ssp jsr chs1
3552 lda powers,x
3554 ora $d015
3556 bne csp1
3558 ;
3560 csp jsr chs1
3562 lda powers,x
3564 eor #$ff
3566 and $d015
3568 csp1 sta $d015
3570 rts
3572 ;
3574 xsp jsr chs1
3576 stx t3
3578 jsr $aefd
3580 jsr $ad8a
3582 jsr $b7f7
3584 lda $15
3586 cmp #2
3588 bcs xs3
3590 ldx t3
3592 ror
3594 lda powers,x
3596 bcc xs1
3598 ora $d010
3600 bcs xs2
3602 xs1 eor #$ff
3604 and $d010
3606 xs2 tay
3608 txa
3610 asl
3612 tax
3614 lda $14
3616 jsr raschk
3618 sty $d010
3620 sta $d000,x
3622 rts
3624 xs3 jmp $b248
3626 ;
3628 ysp jsr chs1
3630 ys1 txa
3632 asl
3634 pha
3636 jsr $b7f1
3638 txa
3640 tay
3642 pla
3644 tax
3646 tya
3648 jsr raschk
3650 sta $d001,x
3652 rts
3654 ;
3656 xysp jsr xsp
3658 ldx t3
3660 bpl ys1
3662 ;
3664 chkspr jsr $73
3666 chs1 jsr $b79e
3668 cpx #8
3670 bcs xs3
3672 rts
3674 ;
3676 raschk pha
3678 ras1 lda $d012
3680 sbc $d001,x
3682 bcc ras2
3684 cmp #$2b
3686 bcc ras1
3688 ras2 pla
3690 rts
3692 ;
3694 powers .byte 1,2,4,8,16,32,64,128
3696 ;